enrich
nat-list-set
with
predicates . < . : nat-list × nat;
axioms ls-base : ⊦ [] < n;
used for: s, ls;
ls-rec : ⊦ m ' + nx < n ↔ m < n ∧ nx < n;
used for: ws, lws;
end enrich